home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / dfue / elcheapofax / faxcmd / libfax / rcs / recv.c,v < prev    next >
Text File  |  1995-03-09  |  8KB  |  388 lines
  1. head    1.6;
  2. access;
  3. symbols
  4.     OCT93:1.6;
  5. locks;
  6. comment    @ * @;
  7.  
  8.  
  9. 1.6
  10. date    93.10.25.02.20.15;    author Rhialto;    state Exp;
  11. branches;
  12. next    1.5;
  13.  
  14. 1.5
  15. date    93.09.18.20.16.23;    author Rhialto;    state Exp;
  16. branches;
  17. next    1.4;
  18.  
  19. 1.4
  20. date    93.07.13.05.41.27;    author Rhialto;    state Exp;
  21. branches;
  22. next    1.3;
  23.  
  24. 1.3
  25. date    93.06.11.23.22.07;    author Rhialto;    state Exp;
  26. branches;
  27. next    1.2;
  28.  
  29. 1.2
  30. date    93.06.11.16.15.25;    author Rhialto;    state Exp;
  31. branches;
  32. next    1.1;
  33.  
  34. 1.1
  35. date    93.06.11.15.19.27;    author Rhialto;    state Exp;
  36. branches;
  37. next    ;
  38.  
  39.  
  40. desc
  41. @Answer phone, receive data, hangup.
  42. @
  43.  
  44.  
  45. 1.6
  46. log
  47. @Make +FBOR flexible.
  48. @
  49. text
  50. @/* $Id: recv.c,v 1.5 1993/09/18 20:16:23 Rhialto Exp $
  51.  * $Log: recv.c,v $
  52.  * Revision 1.5  1993/09/18  20:16:23  Rhialto
  53.  * Add (compile time) choice for +FBOR= value.
  54.  *
  55.  * Revision 1.4  1993/07/13  05:41:27  Rhialto
  56.  * Support for modems that are already fax-connected when we startup.
  57.  *
  58.  * Revision 1.3  1993/06/11  23:22:07  Rhialto
  59.  * Send DC2 when ready to receive page.
  60.  *
  61.  * Revision 1.2  1993/06/11  16:15:25  Rhialto
  62.  * First real RCS checkin
  63.  *
  64.  */
  65. /*
  66.  * This file is part of El Cheapo Fax. All modifications relative to the
  67.  * base source are (C) Copyright 1993 by Olaf 'Rhialto' Seibert.
  68.  * All rights reserved. The GNU General Public License applies.
  69.  */
  70. /*
  71.   This file is part of the NetFax system.
  72.  
  73.   (c) Copyright 1989 by David M. Siegel and Sundar Narasimhan.
  74.       All rights reserved.
  75.  
  76.     This program is free software; you can redistribute it and/or modify
  77.     it under the terms of the GNU General Public License as published by
  78.     the Free Software Foundation.
  79.  
  80.     This program is distributed in the hope that it will be useful,
  81.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  82.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  83.     GNU General Public License for more details.
  84.  
  85.     You should have received a copy of the GNU General Public License
  86.     along with this program; if not, write to the Free Software
  87.     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  88. */
  89.  
  90. #include <stdio.h>
  91.  
  92. #include "log.h"
  93. #include "c2proto.h"
  94. #include "response.h"
  95. #include "swap.h"
  96. #include "read.h"
  97. #include "write.h"
  98. #include "tty.h"
  99. #include "recv.h"
  100. #include "gen.h"
  101.  
  102. int sleep(int);
  103. int write(int, const char *, int);
  104. static void add_padding(int fd);
  105.  
  106. /*
  107.  * Answer a call: ATA
  108.  *
  109.  * Return codes:
  110.  *     0    ok, call has been answered.
  111.  *    -1    answer failed.
  112.  */
  113. int faxmodem_answer(f)
  114.      FaxModem *f;
  115. {
  116.     log(L_NOTICE, "answering phone");
  117.  
  118.     /* flush any echoes or return codes (from the RING) */
  119.     tcflush(f->fd, TCIFLUSH);
  120.  
  121.     if (!FAX_ISSET(f, FAX_F_CONNECT)) { /* Rhialto */
  122.     init_modem_response(f);
  123.  
  124.     if (fdprintf(f->fd, "ATA\r") < 0)
  125.       return (-1);
  126.  
  127.     if (get_modem_response(f, TIMEOUT_ANSWER) < 0)
  128.       return (-1);
  129.     }
  130.  
  131.     if (faxmodem_bit_reverse(f, bor_value) < 0)
  132.       return (-1);
  133.  
  134.     return (0);
  135. }
  136.  
  137. /*
  138.  * Receive a page: +FDR
  139.  *
  140.  * The FDR command can return a couple of possible results.  If the
  141.  * connection is valid, it returns at least the messages listed here:
  142.  *   +FCFR
  143.  *   +FDCS: <params>
  144.  *   CONNECT (numeric code 1)
  145.  * If the other machine has hung up, it returns:
  146.  *   +FHNG: <code>
  147.  * If the connection was not made at all, it returns:
  148.  *    ERROR (numeric code 4)
  149.  *
  150.  * Return codes:
  151.  *     RECV_OK        page data is ready to come
  152.  *     RECV_FAILED    can't receive the page
  153.  *     RECV_DONE    no more pages
  154.  */
  155. recv_code faxmodem_start_recv(f)
  156.      FaxModem *f;
  157. {
  158.     log(L_NOTICE, "asking for remote to send data");
  159.  
  160.     if (fdprintf(f->fd, "AT+FDR\r") < 0)
  161.       return (RECV_FAILED);
  162.  
  163.     /*
  164.      * This flags get reset for every connection.
  165.      */
  166.     f->flags &= ~(FAX_F_CONNECT|FAX_F_FDCS);
  167.  
  168.     /*
  169.      * Make sure that we get the connect message from the modem.
  170.      */
  171.     if (get_modem_response(f, 60) < 0) {
  172.     log(L_NOTICE, "faxmodem_start_recv: didn't receive connect");
  173.     return (RECV_FAILED);
  174.     }
  175.  
  176.     /*
  177.      * Did we connect, hangup, or fail?
  178.      */
  179.     if (FAX_ISSET(f, FAX_F_CONNECT))
  180.       return (RECV_OK);
  181.     else if (FAX_ISSET(f, FAX_F_FHNG))
  182.       return (RECV_DONE);
  183.     else
  184.       return (RECV_FAILED);
  185. }
  186.  
  187. static void add_padding(fd)
  188.      int fd;
  189. {
  190.     /*SUPPRESS 442*/
  191.     char *pad = "\000\020\001\000\020\001\000\020\001";
  192.  
  193.     write(fd, pad, 9);
  194. }
  195.  
  196. /*
  197.  * Reads a data stream from the faxmodem, unstuffing DLE characters.
  198.  * Returns the +FET value (2 if no more pages).  Write the stream
  199.  * out to the given fp.  Returns at the end of a page.
  200.  *
  201.  * Return codes:
  202.  *    0    check modem result code for results
  203.  *     -1    failure, check modem status
  204.  */
  205. int faxmodem_recv_page(f, fd)
  206.      FaxModem *f;
  207.      int fd;
  208. {
  209.     int escaped = FALSE;
  210.  
  211.     log(L_INFO, "receiving a page");
  212.  
  213.     /*
  214.      * Add a delay, for good measures.    May not be needed.
  215.      */
  216.     sleep(1);
  217.  
  218.     /*
  219.      * Send XON to restart, and disable flow control from modem
  220.      * to the Sun so we can receive all 8 bits.  We can still
  221.      * stop the modem if it is sending us data too fast, though.
  222.      */
  223.     tty_fc(f->fd, FC_INPUT_ON);
  224.     tcflow(f->fd, TCION);
  225.     /* Supra says: send a DC2 (^R) to the modem here! */
  226.     fdprintf(fd, "%c", DC2);
  227.  
  228.     /*
  229.      * Reset the post page response flag, since we are now
  230.      * moving to a new page.
  231.      */
  232.     f->flags &= ~FAX_F_FET;
  233.  
  234.     /*
  235.      * Process the stream, until we get an end of page escape.
  236.      */
  237.     for (;;) {
  238.     unsigned char buf[BUFSIZ];
  239.     unsigned char buf_copy[BUFSIZ];
  240.     int nchars;
  241.     int ochars;
  242.     int i;
  243.  
  244.     /*
  245.      * Get a chunk of data.  Note that it is possible for us
  246.      * to read past the end of the fax data steam.    That is,
  247.      * we might read some of the modem response.  Thus, we must
  248.      * pass the remaining stuff to get_modem_response.
  249.      */
  250.     switch(nchars = tread(f->fd, (char *)buf, sizeof(buf), 120)) {
  251.       case -1:
  252.         log(L_ALERT, "read failed in page recv: %m");
  253.         f->status = MODEM_STATUS_FAILED;
  254.         tty_fc(f->fd, FC_BOTH_ON);
  255.         return (-1);
  256.       case 0:
  257.         log(L_NOTICE, "read timed out in page recv: %m");
  258.         f->status = MODEM_STATUS_TIMEOUT;
  259.         tty_fc(f->fd, FC_BOTH_ON);
  260.         return (-1);
  261.       default:
  262.         break;
  263.     }
  264.  
  265.     /*
  266.      * Reverse and unstuff buffer characters.  Check for the DLE
  267.      * escape.  If a DLE ETX is received, we've got the end  of
  268.      * the page.  A DLE DLE means to stuff a DLE.
  269.      */
  270.     ochars = 0;
  271.     for (i = 0; i < nchars; i++) {
  272.         if (escaped) {
  273.         escaped = FALSE;
  274.         switch (buf[i]) {
  275.           case DLE:
  276.             buf_copy[ochars++] = swap_bits(DLE);
  277.             break;
  278.           case ETX:
  279.             log(L_INFO, "received end of page marker");
  280.             if (ochars > 0)
  281.               write(fd, (char *)buf_copy, ochars);
  282.             add_padding(fd);
  283.             tty_fc(f->fd, FC_BOTH_ON);
  284.             return (get_modem_response_from_buf(f, TIMEOUT_RECV_PAGE,
  285.                             (char *)&buf[i+1],
  286.                             nchars-i-1));
  287.           default:
  288.             log(L_INFO, "dropping: %d", buf[i]);
  289.             break;
  290.         }
  291.         } else {
  292.         switch (buf[i]) {
  293.           case DLE:
  294.             escaped = TRUE;
  295.             break;
  296.           default:
  297.             buf_copy[ochars++] = swap_bits(buf[i]);
  298.             break;
  299.         }
  300.         }
  301.     }
  302.     if (ochars > 0)
  303.       write(fd, (char *)buf_copy, ochars);
  304.     }
  305. }
  306. @
  307.  
  308.  
  309. 1.5
  310. log
  311. @Add (compile time) choice for +FBOR= value.
  312. @
  313. text
  314. @d1 1
  315. a1 1
  316. /* $Id: recv.c,v 1.4 1993/07/13 05:41:27 Rhialto Exp $
  317. d3 3
  318. a55 3
  319. #if BOR_VALUE == BOR_C_REV
  320. #define swap_bits(x)    (x)
  321. #endif
  322. d82 1
  323. a82 1
  324.     if (faxmodem_bit_reverse(f, BOR_VALUE) < 0)
  325. @
  326.  
  327.  
  328. 1.4
  329. log
  330. @Support for modems that are already fax-connected when we startup.
  331. @
  332. text
  333. @d1 1
  334. a1 1
  335. /* $Id: recv.c,v 1.3 1993/06/11 23:22:07 Rhialto Exp $
  336. d3 3
  337. d53 3
  338. d82 1
  339. a82 1
  340.     if (faxmodem_bit_reverse(f, 0) < 0)
  341. @
  342.  
  343.  
  344. 1.3
  345. log
  346. @Send DC2 when ready to receive page.
  347. @
  348. text
  349. @d1 1
  350. a1 1
  351. /* $Id: recv.c,v 1.2 1993/06/11 16:15:25 Rhialto Exp $
  352. d3 3
  353. a62 2
  354.     init_modem_response(f);
  355.  
  356. d66 3
  357. a68 1
  358.     if (!FAX_ISSET(f, FAX_F_SYNC)) { /* Rhialto */
  359. @
  360.  
  361.  
  362. 1.2
  363. log
  364. @First real RCS checkin
  365. @
  366. text
  367. @d1 5
  368. a5 2
  369. /* $Id$
  370.  * $Log$
  371. d86 1
  372. a86 1
  373.  *   CONNECT
  374. d168 1
  375. @
  376.  
  377.  
  378. 1.1
  379. log
  380. @Initial revision
  381. @
  382. text
  383. @d1 3
  384. d62 1
  385. a62 1
  386.     if (!FAX_ISSET(f, FAX_F_FCON)) { /* Rhialto */
  387. @
  388.